home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Apple Script / scripts / Canvas Scripts / Adam's Script next >
Encoding:
Text File  |  1993-06-08  |  1.1 KB  |  23 lines  |  [TEXT/ToyS]
  1.  
  2. tell application "Canvas™ 3.0"
  3.     Built In Tool 6 --get ready to build a circle
  4.     New Object --create the new object, 75 pixels by 75 pixels is default
  5.     Move the selection to this location {25, 25} --change the screen location of the object
  6.     -- Set Backcolor in RGB {65535, 1966, 1966} -- will work in future versions of core.
  7.     Set Fill Pattern 10 --set to slant-gray
  8.     Set Pen Size 55 -- set it to 3 pixels by 3 pixels pen size (the pen size at that position in the palette)
  9.     
  10.     Built In Tool 3 --Get ready to create a square
  11.     New Object -- dump the new object on the screen at 75x75
  12.     Move the selection to this location {200, 25} --move it near the top of the screen
  13.     --Set Backcolor in RGB {6521, 65535, 63655} -- reserved for future Canvas core
  14.     Set Fill Pattern 5 -- set it to regular gray.
  15.     Set Pen Size 66 --set a weird pen size
  16.     Execute a Menu Command {14, 258} -- choose "Select All" from the Edit menu.
  17.     -- now duplicate the selection a bunch of times down the screen
  18.     repeat with i from 1 to 10
  19.         Execute a Menu Command {16, 258}
  20.     end repeat
  21.     Execute a Menu Command {5, 18}
  22. end tell
  23.